home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Programming / AllPlaton / Unsorted / BalwandPres.AMOS / BalwandPres.amosSourceCode next >
Encoding:
AMOS Source Code  |  1996-02-05  |  8.1 KB  |  361 lines

  1. Hide 
  2. Dir$="Dh2:Presentation"
  3. 'BLAST 
  4. 'End 
  5.  Extension_8_0456 "mod.virtual reality",-3
  6. Screen Open 7,320,256,2,0 : Screen Hide 
  7. GEARDRAW
  8.  Extension_8_0456 "AMIGABlast.anim",8
  9.  Extension_8_10F2 0
  10.  Extension_8_108E 3
  11. AMIGA
  12. Load Iff "AmigaCreative.iff",3 : Screen Hide 
  13. BLST=Frame Play(Start(8)+12,1,3) : Screen Hide 
  14. Double Buffer : Autoback 0
  15.  Extension_8_128A 7
  16.  Extension_8_1318 3,0,3,1,3,2 To 7,0,%11111110
  17. Screen Copy 7,0,0,320,256 To 7,7,0
  18. SPARKS
  19. AMIGACREATIVE
  20. PLAIANIM
  21. SUPERSOFTSCROLLER
  22. End 
  23. Procedure BLAST
  24.   Load Iff "AmigaCreative.iff",3
  25.   AN= Extension_8_0CF2(3,0,0,0 To 320,256)
  26.    Extension_8_0D24 9,AN+1
  27.    Extension_8_0D2E 3,0,0,0 To 320,256,9,0
  28.   Double Buffer : Autoback 0
  29.    Extension_8_0D4E 10,AN+1
  30.    Extension_8_0D66 
  31.    Extension_8_0DB8 0,3
  32.    Extension_8_0D8A 0,4
  33.    Extension_8_0E62 -1
  34.    Extension_8_0F2A -1
  35.   N=0
  36.   Repeat 
  37.     Screen Swap : Wait Vbl 
  38.      Extension_8_0DEC 
  39.     Save Iff "dh2:dpaint/SPanims/Temp/"+ Extension_8_0EB8(N,3)
  40.     Inc N
  41.   Until Extension_8_0F40 =0
  42. End Proc
  43. Procedure AMIGA
  44.    Extension_8_0456 "AMIGA1.anim",10
  45.   Load Iff "Texture.iff",0 : Screen Hide 
  46.   Screen 7 : Get Palette 0
  47.   For A=0 To 7
  48.     Colour A*4+2, Extension_8_0EFC(Colour(A*4),$444,0 To $FFF)
  49.   Next 
  50.   For A=0 To 15
  51.     Colour A*2+1, Extension_8_0EFC(Colour(A*2),$777,0 To $FFF)
  52.   Next 
  53.   Screen 0
  54.   For A=0 To 31 : Colour A,0 : Next 
  55.   Wait Vbl 
  56.   Screen Show 
  57.   Wait Vbl 
  58.   Fade 3 To 7
  59.   Double Buffer : Autoback 0
  60.   Wait 16
  61.   Screen 7 : Get Palette 0 : Screen 0
  62.   ST=Start(10)+766
  63.    Extension_8_128A 0
  64.   For FR=2 To 200
  65.     ST=Frame Play(ST,1)
  66.      Extension_8_12B2 0,0 To 7,0
  67.     Screen Swap 
  68.      Extension_8_12B2 7,0 To 0,1
  69.     Wait 2
  70.   Next 
  71.   Screen Copy Physic(0) To Logic(0)
  72.    Extension_8_0456 D$+"AMIGA2.anim",10
  73.   Screen 7
  74.   For A=0 To 15
  75.     Colour A*2+1,0
  76.   Next 
  77.   Screen 0
  78.   While Extension_8_10B6 =0 : Multi Wait : Wend 
  79.   Fade 7 To 7
  80.   ST=Start(10)+1420
  81.   For FR=2 To 100
  82.     ST=Frame Play(ST,1)
  83.     Screen Swap : Wait 2
  84.   Next 
  85.   Screen Close 0
  86.   Erase 10
  87. End Proc
  88. Procedure SPARKS
  89.   Screen Open 0,320,288,32,0
  90.   Curs Off : Flash Off : Paper 0 : Cls 0
  91.   For A=0 To 15 : Colour A,0 : Next 
  92.   Screen Display 0,128,40,320,256
  93.    Extension_8_128A 0
  94.    Extension_8_12B2 7,0 To 0,4
  95.    Extension_8_0A7E 9,400
  96.    Extension_8_0AAA 0,286 To 1,287
  97.    Extension_8_0BCC 0,0
  98.    Extension_8_0BAE 
  99.    Extension_8_0B78 0,3
  100.    Extension_8_0AD0 
  101.    Extension_8_0A94 
  102.   Double Buffer : Autoback 0
  103.   While Extension_8_10B6 =0 : Multi Wait : Wend 
  104.   For A=1 To 31
  105.     Colour A,$FFF
  106.   Next 
  107.   Colour 16,$111
  108.   D0=(Rnd(4095) and $777)+$888
  109.   For A=0 To 3
  110.     Colour Extension_8_04F8(A), Extension_8_0EFC(D0,-A*$222,0 To $FFF)
  111.   Next 
  112.   Wait Vbl 
  113.    Extension_8_128A 0
  114.   T=0 : PT=0 : T2=0
  115.   Repeat 
  116.     Wait Vbl 
  117.      Extension_8_12B2 0,2 To 0,3
  118.     If PT=0 Then PT= Extension_8_10B6 
  119.     If PT
  120.       Inc T2
  121.        Extension_8_0AB8 0,287
  122.     Else 
  123.        Extension_8_0AB8 XM,YM
  124.     End If 
  125.      Extension_8_12B2 0,1 To 0,2
  126.     If(T and 15)=0
  127.       XM=Rnd(319) : YM=Rnd(128)
  128.     End If 
  129.     If(T and 31)=0
  130.       D0=(Rnd(4095) and $777)+$888
  131.       D1= Extension_8_0EFC(D0,-$222,0 To $FFF)
  132.       D2= Extension_8_0EFC(D0,-$444,0 To $FFF)
  133.       D3= Extension_8_0EFC(D0,-$666,0 To $FFF)
  134.       Fade 1,,D0,D1,,D2,,,,D3,,,,,,,,,D0,D1,,D2,,,,D3
  135.     End If 
  136.     Inc T
  137.      Extension_8_12B2 0,0 To 0,1
  138.      Extension_8_1258 
  139.      Extension_8_0B2E 
  140.      Extension_8_0B48 
  141.      Extension_8_0B64 
  142.     Screen Swap 
  143.   Until T2>100 and PT<>0
  144. End Proc
  145. Procedure AMIGACREATIVE
  146.   Shared BLST
  147.   Screen 3
  148.   For A=1 To 7 : Colour A,$111 : Next 
  149.   Screen Offset 3,7,0
  150.   Screen Display 3,144,40,304,256
  151.   Screen To Front 3
  152.   Screen Show 3
  153.   Screen Close 0
  154.   Screen 3
  155.   Fade 3,0,$FC4,$EA3,$D82,$B62,$A51,$960,$830
  156.   Set Rainbow 0,0,64,"","",""
  157.    Extension_8_1330 0,-63
  158.   For A=0 To 63
  159.     Rain(0,A)=$77
  160.   Next 
  161.   RY=0 : R=4 : R2=112 : SP=16
  162.   T=0
  163.   Repeat 
  164.     Wait Vbl 
  165.     If R<112
  166.       Inc R
  167.       For A=0 To 63
  168.         S= Extension_8_1106(A*32,R/16)+7
  169.         Rain(0,A)=S+S*16
  170.       Next 
  171.     Else 
  172.       Inc T
  173.     End If 
  174.     Rainbow 0,RY/16,Y Hard(-1),258
  175.     RY=(RY+SP) and 1023
  176.     If T>128 Then Dec SP
  177.     If R2>0 and T>256
  178.       Dec R2
  179.       For A=0 To 63
  180.         S= Extension_8_1106(A*32,R2/16)+7
  181.         Rain(0,A)=S+S*16
  182.       Next 
  183.     End If 
  184.   Until Extension_8_10B6 
  185.   Rainbow Del : View 
  186.   ST=BLST
  187.   For A=1 To 52
  188.     ST=Frame Play(ST,1)
  189.     Screen Swap 
  190.     Wait Vbl 
  191.   Next 
  192.   Screen Close 3
  193.   Erase 8
  194. End Proc
  195. Procedure PLAIANIM
  196.    Extension_8_0456 "b1.anim",10
  197.    Extension_8_0456 "b2.anim",11
  198.    Extension_8_0456 "b3.anim",12
  199.   Screen 7 : For A=0 To 31 : Colour A,0 : Next 
  200.   ST=Start(10) : LE=Length(9) : ED=ST+LE
  201.   ST=Frame Play(ST+12,1,0)
  202.   For A=0 To 238
  203.     ST=Frame Play(ST,1)
  204.     Get Palette 7
  205.   Next 
  206.   Double Buffer : Autoback 0
  207.   FRCO=0
  208.   For A=240 To 653
  209.     Gosub DRAFRAME
  210.   Next 
  211.   ST=Start(11)+12
  212.   For A=0 To 366
  213.     Gosub DRAFRAME
  214.   Next 
  215.   ST=Start(12)+12
  216.   For A=0 To 250
  217.     Gosub DRAFRAME
  218.   Next 
  219.   Erase 10
  220.   Erase 11
  221.   Erase 12
  222.   Screen Close 0
  223. Pop Proc
  224. DRAFRAME:
  225.   NST=Frame Play(ST,1)
  226.   AD=Hunt(ST To NST,"CMAP")
  227.   If AD
  228.     Add AD,8
  229.     For AA=0 To 31
  230.       C0=Peek(AD)/16 : C1=Peek(AD+1)/16 : C2=Peek(AD+2)/16 : Add AD,3
  231.       Colour AA, Extension_8_0A0E(C0,C1,C2)
  232.     Next 
  233.   End If 
  234.   Screen Swap : Wait Vbl 
  235. '  Save Iff "dh2:dpaint/spanims/buzzed/Buzzed"+Lzstr$(FRCO,4)
  236. '  Inc FRCO
  237.   ST=NST
  238. Return 
  239. End Proc
  240. Procedure GEARDRAW
  241.   For S=0 To 1
  242.     Screen Open S+1,320,256,16,0 : Screen Hide 
  243.     Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 0
  244.   Next 
  245.   W1=0 : W2=16 : W3=0 : W4=0
  246.   For S=0 To 7
  247.     Screen S/4+1
  248.     Add W1,8
  249.     Add W2,-8
  250.     Add W3,4
  251.     Add W4,-8
  252.     W=W1 : R1=80 : R2=96 : X=220 : Y=100 : ST=16
  253.     Gosub GEAR
  254.     W=W2 : R1=60 : R2=72 : X=88 : Y=188 : ST=16
  255.     Gosub GEAR
  256.     W=W3 : R1=40 : R2=48 : X=58 : Y=58 : ST=8
  257.     Gosub GEAR
  258.     W=W4 : R1=20 : R2=24 : X=258 : Y=220 : ST=16
  259.     Gosub GEAR
  260.      Extension_8_1042 S/4+1,S and 3
  261.   Next 
  262. Pop Proc
  263. GEAR:
  264.   X1=0 : D=0
  265.   For A=0 To 1023 Step ST
  266.     If D<2
  267.       X2= Extension_8_1114(A+W,R1)+X
  268.       Y2= Extension_8_1106(A+W,R1)+Y
  269.     Else 
  270.       X2= Extension_8_1114(A+W,R2)+X
  271.       Y2= Extension_8_1106(A+W,R2)+Y
  272.     End If 
  273.     Add D,1,0 To 3
  274.     If X1=0
  275.       OX1=X2 : OY1=Y2
  276.     Else 
  277.        Extension_8_1030 X1,Y1 To X2,Y2,15,- Extension_8_04F8(S and 3)
  278.     End If 
  279.     X1=X2 : Y1=Y2
  280.   Next 
  281.    Extension_8_1030 X1,Y1 To OX1,OY1,15,- Extension_8_04F8(S and 3)
  282. Return 
  283. End Proc
  284. Procedure SUPERSOFTSCROLLER
  285.   Screen Open 7,320,256,2,0
  286.   Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  287.   Double Buffer : Autoback 0
  288.   Unpack 16 To 0 : Screen Hide 
  289.   For A=0 To 58
  290.     Get Block A+1,(A mod 20)*16,(A/20)*16,16,16
  291.   Next 
  292.   Screen Open 0,320,576,4,0
  293.   Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  294.   For A=0 To 15 : Colour A,0 : Next 
  295.   Screen Display 0,128,40,320,256
  296.   YPOS=0
  297.   Screen Offset 0,0,YPOS+24
  298.   Dual Playfield 0,7
  299.   T$=""
  300.   T$=T$+"$EQUIPMENT USED:$$AMIGA 500 WITH 6 MB$DPAINT IV$"
  301.   T$=T$+"AMOS PROFESSIONAL$PROTRACKER 2.2$$$$$$$"
  302.   T$=T$+"GRAPHICS BY:$UNKNOWN$$$ANIMATIONS BY$JAMES ROBINSON$CHRIS HODGES$$$"
  303.   T$=T$+"MUSIC BY$ORGANIC/SHINING$MR.MAN/ANDROMEDA$$$$$$"
  304.   T$=T$+"$$$$$$DIRECTED BY$CHRIS HODGES$$$$$$$$$$THE END$$$$$$$$$$$"
  305.   Set Rainbow 0,0,16,"","",""
  306.   For A=0 To 15
  307.     Rain(0,A)=$3204
  308.   Next 
  309.    Extension_8_1330 0,-64
  310.   Rainbow 0,0,Y Hard(-2),260
  311.   BP=1 : S=0
  312.   Fade 3,0,$CCC,$550,$FFC,$999,$555,$CC9,$995
  313.    Extension_8_128A 7
  314.   Repeat 
  315.     Gosub PULET
  316.     Add S,1,0 To 7
  317.      Extension_8_12B2 S/4+1,S and 3 To 7,0 : Screen Swap 
  318.     If Deek($DFF004) and $8000 Then Wait Vbl 
  319.     Gosub PULET
  320.     Add S,1,0 To 7
  321.      Extension_8_12B2 S/4+1,S and 3 To 7,0 : Screen Swap 
  322.     If BP Then Add YPOS,1,0 To 287
  323.     Screen Offset 0,0,YPOS+24
  324.     Wait Vbl 
  325.   Until 0
  326.   If Deek($DFF004) and $8000 Then Wait Vbl 
  327.   Rainbow Del : View 
  328.   Screen Close 0
  329. Pop Proc
  330. PULET:
  331.   YP=YPOS and $FFF0
  332.   If(YPOS and 15)=0 Then LP=0
  333.   If LP=0
  334.     XP=160
  335.     For A=BP To Len(T$)
  336.       Exit If Mid$(T$,A,1)="$"
  337.       Add XP,-8
  338.     Next 
  339.     Inc LP : Return 
  340.   End If 
  341.   If LP=1
  342.     Ink 0 : Bar 0,YP To 319,YP+15
  343.     Inc LP : Return 
  344.   End If 
  345.   If LP=2
  346.     Ink 0 : Bar 0,YP+288 To 319,YP+303
  347.     Inc LP : Return 
  348.   End If 
  349.   If LP=3
  350.     P=Asc(Mid$(T$,BP,1))
  351.     Add BP,1,0 To Len(T$)
  352.     If P=36
  353.       LP=-1
  354.     Else 
  355.       Put Block P-31,XP,YP
  356.       Put Block P-31,XP,YP+288
  357.       Add XP,16
  358.     End If 
  359.   End If 
  360. Return 
  361. End Proc